home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 20.d (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  422b  |  17 lines
  1. 9000 rem zeiger positionieren --------------------------------------------------
  2. 9001 :
  3. 9010 hb%=sa/256:lb%=sa-hb%*256
  4. 9020 print#15,"p";chr$(3);chr$(lb%);chr$(hb%);chr$(1)
  5. 9030 input#15,a:ifa=50thenprint"satznummer zu hoch"
  6. 9040 return
  7. 9100 rem satz lesen ------------------------------------------------------------
  8. 9101 :
  9. 9110 ifa=50thenreturn
  10. 9120 input#1,a$
  11. 9130 return
  12. 9200 rem satz schreiben --------------------------------------------------------
  13. 9201 :
  14. 9210 ifa=50thenreturn
  15. 9220 print#1,a$
  16. 9230 return
  17.